object frmGlassesFirms: TfrmGlassesFirms
  Left = 344
  Top = 82
  BorderIcons = [biSystemMenu]
  BorderStyle = bsDialog
  Caption = 'Glasses firms'
  ClientHeight = 423
  ClientWidth = 519
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnDestroy = FormDestroy
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object pnlMain: TPanel
    Left = 8
    Top = 8
    Width = 505
    Height = 377
    BevelInner = bvRaised
    BevelOuter = bvLowered
    TabOrder = 0
    object lblFirm: TLabel
      Left = 8
      Top = 216
      Width = 49
      Height = 13
      Caption = 'Models of:'
    end
    object lblName: TLabel
      Left = 72
      Top = 216
      Width = 177
      Height = 21
      AutoSize = False
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object ToolBar1: TToolBar
      Left = 2
      Top = 2
      Width = 501
      Height = 33
      BorderWidth = 1
      ButtonHeight = 27
      ButtonWidth = 27
      DisabledImages = frmMain.disableImageList
      EdgeBorders = [ebBottom]
      Flat = True
      Images = frmMain.hotImageList
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      object btnUpdate: TToolButton
        Left = 0
        Top = 0
        Hint = 'Update firm'
        Caption = 'btnUpdate'
        ImageIndex = 0
        OnClick = btnUpdateClick
      end
      object btnAdd: TToolButton
        Left = 27
        Top = 0
        Hint = 'Add new firm'
        Caption = 'btnAdd'
        ImageIndex = 1
        OnClick = btnAddClick
      end
      object btnDelete: TToolButton
        Left = 54
        Top = 0
        Hint = 'Delete firm'
        Caption = 'btnDelete'
        ImageIndex = 2
        OnClick = btnDeleteClick
      end
    end
    object grdGlassesFirms: TDBGrid
      Left = 8
      Top = 40
      Width = 481
      Height = 166
      DataSource = srcFirms
      Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
      TabOrder = 1
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      OnKeyDown = grdGlassesFirmsKeyDown
      Columns = <
        item
          Expanded = False
          FieldName = 'NAME'
          Width = 208
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'ADDRESS'
          Width = 127
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'PHONE'
          Width = 122
          Visible = True
        end>
    end
    object grdModels: TDBGrid
      Left = 8
      Top = 233
      Width = 393
      Height = 131
      DataSource = srcModels
      Options = [dgTitles, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
      TabOrder = 2
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      Columns = <
        item
          Expanded = False
          FieldName = 'MODEL'
          Width = 144
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'PRICE'
          Width = 80
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'BOUGHT'
          Width = 68
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'SOLD'
          Width = 76
          Visible = True
        end>
    end
  end
  object btnClose: TBitBtn
    Left = 328
    Top = 392
    Width = 89
    Height = 25
    Cancel = True
    Caption = 'Close'
    Default = True
    TabOrder = 1
    OnClick = btnCloseClick
    Glyph.Data = {
      4E010000424D4E01000000000000760000002800000012000000120000000100
      040000000000D800000000000000000000001000000010000000000000000000
      80000080000000808000800000008000800080800000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777770007
      777777000000777777780EE0777777000000777777870EE60777770000007777
      78780EE6607777000000777787870EE6660777000000777700000EE666607700
      0000777708880EE6066077000000777708880EE0806077000000777708880EE0
      F06077000000777708880EE6066077000000777708880EE66660770000007777
      08880EE6666077000000777708880FE66660770000007777088880FE66607700
      000077770888880FE66077000000777708888880FE6077000000777708888888
      0FE077000000777700000000000077000000}
  end
  object btnHelp: TBitBtn
    Left = 424
    Top = 392
    Width = 89
    Height = 25
    Caption = '&Help'
    TabOrder = 2
    Glyph.Data = {
      DE010000424DDE01000000000000760000002800000024000000120000000100
      0400000000006801000000000000000000001000000000000000000000000000
      80000080000000808000800000008000800080800000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333336633
      3333333333333FF3333333330000333333364463333333333333388F33333333
      00003333333E66433333333333338F38F3333333000033333333E66333333333
      33338FF8F3333333000033333333333333333333333338833333333300003333
      3333446333333333333333FF3333333300003333333666433333333333333888
      F333333300003333333E66433333333333338F38F333333300003333333E6664
      3333333333338F38F3333333000033333333E6664333333333338F338F333333
      0000333333333E6664333333333338F338F3333300003333344333E666433333
      333F338F338F3333000033336664333E664333333388F338F338F33300003333
      E66644466643333338F38FFF8338F333000033333E6666666663333338F33888
      3338F3330000333333EE666666333333338FF33333383333000033333333EEEE
      E333333333388FFFFF8333330000333333333333333333333333388888333333
      0000}
    NumGlyphs = 2
  end
  object srcModels: TDataSource
    DataSet = tblModels
    Left = 104
    Top = 392
  end
  object tblModels: TTable
    Active = True
    DatabaseName = 'OPTICA'
    Filtered = True
    TableName = 'GlassesModels.db'
    Left = 40
    Top = 392
  end
  object srcFirms: TDataSource
    DataSet = tblFirms
    OnDataChange = srcFirmsDataChange
    Left = 72
    Top = 392
  end
  object tblFirms: TTable
    Active = True
    DatabaseName = 'OPTICA'
    IndexName = 'ixName'
    TableName = 'GlassesFirms.DB'
    Left = 8
    Top = 392
  end
end
